home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / CarribeanPoker.dxr / Objects_2_playing cards.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.6 KB  |  75 lines
  1. property pRank, pSuit, pValue
  2.  
  3. on new me, theRank, theSuit
  4.   me.pRank = theRank
  5.   me.pSuit = theSuit
  6.   me.pValue = me.getValue()
  7.   return me
  8. end
  9.  
  10. on mGetRank me
  11.   return me.pRank
  12. end
  13.  
  14. on mGetSuit me
  15.   return me.pSuit
  16. end
  17.  
  18. on mGetImage me
  19.   return string(me.pRank) & "_" & string(me.pSuit)
  20. end
  21.  
  22. on getValue me
  23.   if pRank = #ace then
  24.     return 1
  25.   else
  26.     if me.pRank = #two then
  27.       return 2
  28.     else
  29.       if me.pRank = #three then
  30.         return 3
  31.       else
  32.         if me.pRank = #four then
  33.           return 4
  34.         else
  35.           if me.pRank = #five then
  36.             return 5
  37.           else
  38.             if me.pRank = #six then
  39.               return 6
  40.             else
  41.               if me.pRank = #seven then
  42.                 return 7
  43.               else
  44.                 if me.pRank = #eight then
  45.                   return 8
  46.                 else
  47.                   if me.pRank = #nine then
  48.                     return 9
  49.                   else
  50.                     if me.pRank = #ten then
  51.                       return 10
  52.                     else
  53.                       if me.pRank = #jack then
  54.                         return 11
  55.                       else
  56.                         if me.pRank = #queen then
  57.                           return 12
  58.                         else
  59.                           if me.pRank = #king then
  60.                             return 13
  61.                           end if
  62.                         end if
  63.                       end if
  64.                     end if
  65.                   end if
  66.                 end if
  67.               end if
  68.             end if
  69.           end if
  70.         end if
  71.       end if
  72.     end if
  73.   end if
  74. end
  75.